home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 December / 1985-12.d64 / disk protect (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  260b  |  11 lines
  1. 100 print"[147]disk protected"
  2. 110 open15,8,15:print#15,"i0":open2,8,2,"#"
  3. 120 print#15,"u1:";2;0;18;0:gosub170
  4. 130 print#15,"b-p:";2;2:print#2,chr$(80);:gosub170
  5. 140 print#15,"b-p:";2;166:print#2,chr$(80);:gosub170
  6. 150 print#15,"u2:";2;0;18;0:gosub170
  7. 160 close2:print#15,"i0":close15:end
  8. 170 input#15,en,em$,et,es
  9. 180 ifenthenprinten,em$,et,es:stop
  10. 190 return
  11.